home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1986 February / 1986-02.d64 / blink mode (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  44 lines
  1. 10 print"[147]"
  2. 100 fori=49152to49506:reada:pokei,a:x=x+a:next
  3. 110 ifx<>36438thenprint"error in data.":stop
  4. 120 pn$="blinkobj":forj=1tolen(pn$):poke704+j,asc(mid$(pn$,j,1)):nextj
  5. 130 print"d[146]isk or t[146]ape? ";:device=8
  6. 140 geta$:ifa$="t"thendevice=1:goto160
  7. 150 ifa$<>"d"then140
  8. 160 printa$:poke780,15:poke781,device:poke782,255:sys65466
  9. 170 poke780,len(pn$):poke781,193:poke782,2:sys65469
  10. 180 ba=49152:hi=int(ba/256):lo=ba-(hi*256):poke251,lo:poke252,hi
  11. 190 ea=49507:hi=int(ea/256):lo=ea-(hi*256)+1:poke780,251:poke781,lo:poke782,hi
  12. 200 print"saving ml version of ";pn$:sys65496
  13. 210 data 32,170,177,120,42,42,176,21,42,176,32
  14. 220 data 42,176,42,42,176,87,42,176,54,42,176
  15. 230 data 101,42,176,108,168,144,121,74,74,141
  16. 240 data 94,193,140,93,193,238,97,193,56,176
  17. 250 data 105,169,234,141,21,3,169,49,141,20,3
  18. 260 data 56,176,92,169,192,141,21,3,169,156,141
  19. 270 data 20,3,169,26,141,90,193,56,176,74,152
  20. 280 data 41,15,170,152,41,240,74,74,74,74,157
  21. 290 data 42,193,157,74,193,170,152,41,15,157,26
  22. 300 data 193,157,58,193,56,176,44,152,41,15,170
  23. 310 data 168,189,42,193,170,152,153,74,193,138
  24. 320 data 157,58,193,56,176,22,152,41,15,170,188
  25. 330 data 42,193,56,176,16,160,15,152,153,74,193
  26. 340 data 153,58,193,136,16,246,230,254,160,1
  27. 350 data 169,0,88,108,5,0,173,97,193,208,10,206
  28. 360 data 95,193,208,113,206,96,193,16,108,48,3
  29. 370 data 206,97,193,173,94,193,141,96,193,173
  30. 380 data 93,193,141,95,193,169,0,133,251,169
  31. 390 data 219,133,252,169,26,77,90,193,141,90
  32. 400 data 193,208,2,169,42,141,250,192,141,10
  33. 410 data 193,173,90,193,208,23,165,254,240,19
  34. 420 data 198,254,160,15,185,58,193,153,26,193
  35. 430 data 185,74,193,153,42,193,136,16,241,160,0
  36. 440 data 177,251,41,15,170,189,26,193,145,251
  37. 450 data 169,4,133,253,160,232,177,251,41,15,170
  38. 460 data 189,26,193,145,251,136,208,243,198,252
  39. 470 data 198,253,208,237,76,49,234,0,1,2,3,4,5,6
  40. 480 data 7,8,9,10,11,12,13,14,15,0,1,2,3,4,5,6,7
  41. 490 data 8,9,10,11,12,13,14,15,0,1,2,3,4,5,6,7,8
  42. 500 data 9,10,11,12,13,14,15,0,1,2,3,4,5,6,7,8,9
  43. 510 data 10,11,12,13,14,15,0,0,1,0,0,0,0,0,0
  44.